home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Think Class Libraries / TP TCL->CW TCL v1.1.2.3 / UPI ƒ / Updated UPIs ƒ / Signal.p < prev    next >
Text File  |  1996-02-07  |  957b  |  55 lines
  1. {
  2.     File:        Signal.p
  3.  
  4.     Copyright:    © 1983-1993 by Apple Computer, Inc.
  5.                 All rights reserved.
  6.  
  7.     Version:    System 7.1 for ETO #11
  8.     Created:    Tuesday, March 30, 1993 18:00
  9.  
  10. }
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Signal;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingSignal}
  22. {$SETC UsingSignal := 1}
  23.  
  24.  
  25. TYPE
  26.     SignalMap =     INTEGER;
  27.     SignalHandler = ^LONGINT;    { Pointer to function }
  28.  
  29. CONST
  30.     SIG_ERR =       -1;            { Returned by IEsignal on error }
  31.     SIG_IGN =        0;
  32.     SIG_DFL =        1;
  33.     SIG_HOLD =        3;
  34.     SIG_RELEASE =    5;
  35.  
  36.     SIGABRT =        $0001;
  37.     SIGINT =        $0002;        { Currently only SIGINT implemented }
  38.     SIGFPE =        $0004;
  39.     SIGILL =        $0008;
  40.     SIGSEGV =        $0010;
  41.     SIGTERM =        $0020;
  42.  
  43. { Signal Handling Functions }
  44.  
  45. FUNCTION IEsignal(sigNum: LONGINT; sigHdlr: UNIV SignalHandler): SignalHandler; C; EXTERNAL;
  46.  
  47. FUNCTION IEraise(sigNum: LONGINT): LONGINT; C; EXTERNAL;
  48.  
  49.  
  50. {$ENDC} { UsingSignal }
  51.  
  52. {$IFC NOT UsingIncludes}
  53.  END.
  54. {$ENDC}
  55.